<%
'******************************************************************************************
'#          Openasp CMS software opensource                                               #
'******************************************************************************************
'#      Copyright (C) Luca Becchetti, Broken Ice Interactive                              #
'#                                                                                        #
'# Questo software è gratuito, è possibile ridistribuire e modificare il prodotto         #
'# rispettando i termini della GNU General Public License pubblicata dalla Free           #
'# Software Foundation, si fa riferimento alla versione attuale e a tutte le versioni.    #
'# future                                                                                 #
'#                                                                                        #
'# Il software viene distribuito con lo scopo di essere utile e di aiutare nella          #
'# realizzazione di un sito web, non ci assiumiamo nessuna responsabilità per             #
'# eventuali malfunzionamenti o problemi provenienti dal programma.                       #
'#                                                                                        #
'# E' assolutamente vietato eliminare ogni riferimento di copyright sia all'interno del   #
'# del codice sorgente sia quelli visivi nel progetto.                                    #
'#                                                                                        #
'# Una copia della licenza GNU GPL è rilasciata nel pacchetto di istallazione del         #
'# software.                                                                              #
'#                                                                                        #
'# Per supporto visita il nostro sito ufficiale                                           #
'# http://www.openasp.it                                                                  #
'#                                                                                        #
'#                                                                                        #
'******************************************************************************************
'
'--------------------------------------------------------------------------------------------
Function isBlogMod(id, categ)
		if id <> "" and categ <> "" then
			if isNumeric(user) and isNumeric(cat) then
				set testRS = addConn.Execute("SELECT * FROM tb_blog_moderazione WHERE utente = " & id & " AND idcategoria = " & categ)
				if not testRS.EOF then
					isBlogMod = true
				else
					isBlogMod = false
				end if
			else
				isBlogMod = false
			end if
		else
			isBlogMod = false
		end if
	End Function
i = split(request.ServerVariables("HTTP_URL"), "/")
if strComp("delcomment.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if

id_post = request.form("id_post")
if id_post = "" then
	response.Redirect("admin.asp?modulo=blog")
else
	set postRS = addConn.execute("SELECT * FROM tb_blog_posts WHERE id_post = " & testSQLinj(id_post))
	if postRS.EOF then
		response.Redirect("admin.asp?modulo=blog")
	else
		if not session("livelloUser") = 2 and not isAdm(session("uID"), "blog") and not isBlogMod(session("uID"),postRS("categoria")) then
			response.Redirect("admin.asp?modulo=blog")
		end if
	end if
end if

	if request.Form("stato") = 1 then
		pubblico = 1
	else
		pubblico = 0
	end if
	
	addConn.Execute("UPDATE tb_blog_posts SET titolo = '"&testSQLinj(request.Form("titolo"))&"', contenuto = '"&testSQLinj(request.Form("testo"))&"', riassunto = '"&testSQLinj(request.Form("riassunto"))&"', data = '"&DateToSTR(STR_TIME)&"', pubblico = '"&pubblico&"', categoria = '"&request.Form("cat")&"', tags = '"&testSQLinj(request.Form("tags"))&"' WHERE id_post = " & testSQLinj(request.Form("id_post")))
	
	

response.Redirect("admin.asp?modulo=blog&op=modifica_post&id=" & request.Form("id_post"))
%>